(setup-default-fontset): For each script, append (not set) font-specs.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index d041f161cc600e62a1c091f2a087910656dd62e6..6b2a240e8d721f829b5d24c751a59e2bc9ab006c 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -526,7 +526,8 @@
                    mahjong-tile
                    domino-tile))
     (set-fontset-font "fontset-default"
-                     script (font-spec :registry "iso10646-1" :script script)))
+                     script (font-spec :registry "iso10646-1" :script script)
+                     nil 'append))
 
   ;; Special settings for `MATHEMATICAL (U+1D400..U+1D7FF)'.
   (dolist (math-subgroup '((#x1D400 #x1D433 mathematical-bold)